home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / H121A.ZIP / FILES6.EXE / lha / EUROPE.CHK < prev    next >
Text File  |  1991-07-15  |  2KB  |  128 lines
  1. *******************************************************************************
  2. *EUROPE.CHK                                                                 *
  3. *Check file to demonstrate the use of nutrition anthropometry within Epi Info*
  4. * version 5.  Note that this file will not work with earlier versions of Epi *
  5. * Info.  Remember, to use the example program distributed with Epi Info, you *
  6. * must enter "EUROPE" at the DOS prompt, not from the Epi Info menu.         *
  7. ******************************************************************************
  8. ******************************************************************************
  9. *Special note:  If you are going to add fields to the REC file, you will     *
  10. * want to remove the GOTO WRITEREC that appears in 3 lines and jump to the   *
  11. * first added field in the .CHK file.  For more information on how to modify *
  12. * the Check file, please refer to the appropriate chapters in the Epi Info   *
  13. * version 5 documentation                                                    *
  14. ******************************************************************************
  15.  
  16. NAME
  17.   UPDATE OFF
  18.   COLOR QUESTION 31
  19.   COLOR DATA 112
  20.   COLOR BACKGROUND 1
  21.   SET ALL FIELDCHAR " "
  22.   UPDATE
  23.   ENTER
  24.   AutoJump SEX
  25. END
  26.  
  27. SEX
  28.   Legal
  29.     M
  30.     1
  31.     F
  32.     2
  33.   END
  34.   AutoJump AGE
  35. END
  36.  
  37. AGE
  38.   Range 0 +inf
  39.   AutoJump YRS
  40. END
  41.  
  42. BIRTHDATE
  43.   AutoJump VISITDATE
  44.   IF birthdate = .
  45.   THEN
  46.     GOTO WEIGHT
  47.   ENDIF
  48. END
  49.  
  50. YRS
  51.   Range 0 +inf
  52.   AutoJump BIRTHDATE
  53.   IF YRS = .
  54.   THEN
  55.     GOTO BIRTHDATE
  56.   ELSE
  57.     IF AGE = . OR AGE = 0
  58.     THEN
  59.       AGE = 0
  60.     ENDIF
  61.     LET AGE = AGE + (YRS*12)
  62.     LET YRS = 0
  63.   ENDIF
  64. END
  65.  
  66. VISITDATE
  67.   IF visitDATE = .
  68.   THEN
  69.     GOTO WEIGHT
  70.   ELSE
  71.     LET AGE = (VISITDATE - BIRTHDATE) /30.44
  72.   ENDIF
  73. END
  74.  
  75. WEIGHT
  76.   Range 0 +inf
  77. END
  78.  
  79. HAP
  80.   NoEnter
  81. END
  82.  
  83. HAZ
  84.   NoEnter
  85. END
  86.  
  87. HAM
  88.   NoEnter
  89. END
  90.  
  91. HEIGHT
  92.   Range 0 +inf
  93.   LOAD ENTFACE.BIN
  94.   CALL ENTFACE 75
  95.   UPDATE
  96.   GOTO WRITEREC
  97. END
  98.  
  99. WAP
  100.   NoEnter
  101. END
  102.  
  103. WAZ
  104.   NoEnter
  105. END
  106.  
  107. WAM
  108.   NoEnter
  109. END
  110.  
  111. WHP
  112.   NoEnter
  113. END
  114.  
  115. WHZ
  116.   NoEnter
  117. END
  118.  
  119. WHM
  120.   NoEnter
  121.   AutoJump NAME
  122. END
  123.  
  124. FLAG
  125.   NoEnter
  126. END
  127.  
  128.